home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / misc / benchmarks / gc / lkrosm / bench.e
Text File  |  2000-03-25  |  310b  |  32 lines
  1. class BENCH
  2.  
  3. creation make 
  4.  
  5. feature
  6.  
  7.    s: STRING
  8.  
  9.    make is
  10.       local
  11.      i, j: INTEGER;
  12.       do
  13.      from
  14.         i := 350_000;
  15.      until
  16.         i = 0
  17.      loop
  18.         from
  19.            j := 80;
  20.         until
  21.            j = 40
  22.         loop
  23.            !!s.make(j);
  24.            j := j - 1;
  25.         end;     
  26.         i := i - 1;
  27.      end;
  28.       end;
  29.  
  30. end
  31.  
  32.